home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / led.exe / LEDS1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-21  |  7.4 KB  |  255 lines
  1. VERSION 4.00
  2. Begin VB.Form FrmLEDSample1 
  3.    Appearance      =   0  'Flat
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "LED - Blink Sample"
  6.    ClientHeight    =   2280
  7.    ClientLeft      =   1605
  8.    ClientTop       =   1740
  9.    ClientWidth     =   3825
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   2685
  21.    Left            =   1545
  22.    LinkTopic       =   "Form1"
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    ScaleHeight     =   2280
  26.    ScaleWidth      =   3825
  27.    Top             =   1395
  28.    Width           =   3945
  29.    Begin VB.Timer Timer1 
  30.       Interval        =   55
  31.       Left            =   0
  32.       Top             =   0
  33.    End
  34.    Begin LedLib.LED LED1 
  35.       Height          =   495
  36.       Index           =   7
  37.       Left            =   3360
  38.       TabIndex        =   8
  39.       Top             =   1800
  40.       Width           =   495
  41.       _Version        =   131072
  42.       _ExtentX        =   873
  43.       _ExtentY        =   873
  44.       _StockProps     =   64
  45.       BevelInner      =   3
  46.       BevelShapeInner =   1
  47.       BevelOuter      =   1
  48.       BevelShapeOuter =   0
  49.       BevelWidthOuter =   1
  50.       BevelWidthInner =   1
  51.       BorderWidth     =   4
  52.       DisabledColor   =   12632256
  53.       OffColor        =   8421504
  54.       OnColor         =   255
  55.       Value           =   -1  'True
  56.    End
  57.    Begin LedLib.LED LED1 
  58.       Height          =   495
  59.       Index           =   6
  60.       Left            =   2880
  61.       TabIndex        =   7
  62.       Top             =   1800
  63.       Width           =   495
  64.       _Version        =   131072
  65.       _ExtentX        =   873
  66.       _ExtentY        =   873
  67.       _StockProps     =   64
  68.       BevelInner      =   3
  69.       BevelShapeInner =   1
  70.       BevelOuter      =   1
  71.       BevelShapeOuter =   0
  72.       BevelWidthOuter =   1
  73.       BevelWidthInner =   1
  74.       BorderWidth     =   4
  75.       DisabledColor   =   12632256
  76.       OffColor        =   8421504
  77.       OnColor         =   255
  78.       Value           =   -1  'True
  79.    End
  80.    Begin LedLib.LED LED1 
  81.       Height          =   495
  82.       Index           =   5
  83.       Left            =   2400
  84.       TabIndex        =   6
  85.       Top             =   1800
  86.       Width           =   495
  87.       _Version        =   131072
  88.       _ExtentX        =   873
  89.       _ExtentY        =   873
  90.       _StockProps     =   64
  91.       BevelInner      =   3
  92.       BevelShapeInner =   1
  93.       BevelOuter      =   1
  94.       BevelShapeOuter =   0
  95.       BevelWidthOuter =   1
  96.       BevelWidthInner =   1
  97.       BorderWidth     =   4
  98.       DisabledColor   =   12632256
  99.       OffColor        =   8421504
  100.       OnColor         =   255
  101.       Value           =   -1  'True
  102.    End
  103.    Begin LedLib.LED LED1 
  104.       Height          =   495
  105.       Index           =   4
  106.       Left            =   1920
  107.       TabIndex        =   5
  108.       Top             =   1800
  109.       Width           =   495
  110.       _Version        =   131072
  111.       _ExtentX        =   873
  112.       _ExtentY        =   873
  113.       _StockProps     =   64
  114.       BevelInner      =   3
  115.       BevelShapeInner =   1
  116.       BevelOuter      =   1
  117.       BevelShapeOuter =   0
  118.       BevelWidthOuter =   1
  119.       BevelWidthInner =   1
  120.       BorderWidth     =   4
  121.       DisabledColor   =   12632256
  122.       OffColor        =   8421504
  123.       OnColor         =   255
  124.       Value           =   -1  'True
  125.    End
  126.    Begin LedLib.LED LED1 
  127.       Height          =   495
  128.       Index           =   3
  129.       Left            =   1440
  130.       TabIndex        =   4
  131.       Top             =   1800
  132.       Width           =   495
  133.       _Version        =   131072
  134.       _ExtentX        =   873
  135.       _ExtentY        =   873
  136.       _StockProps     =   64
  137.       BevelInner      =   3
  138.       BevelShapeInner =   1
  139.       BevelOuter      =   1
  140.       BevelShapeOuter =   0
  141.       BevelWidthOuter =   1
  142.       BevelWidthInner =   1
  143.       BorderWidth     =   4
  144.       DisabledColor   =   12632256
  145.       OffColor        =   8421504
  146.       OnColor         =   255
  147.       Value           =   -1  'True
  148.    End
  149.    Begin LedLib.LED LED1 
  150.       Height          =   495
  151.       Index           =   2
  152.       Left            =   960
  153.       TabIndex        =   3
  154.       Top             =   1800
  155.       Width           =   495
  156.       _Version        =   131072
  157.       _ExtentX        =   873
  158.       _ExtentY        =   873
  159.       _StockProps     =   64
  160.       BevelInner      =   3
  161.       BevelShapeInner =   1
  162.       BevelOuter      =   1
  163.       BevelShapeOuter =   0
  164.       BevelWidthOuter =   1
  165.       BevelWidthInner =   1
  166.       BorderWidth     =   4
  167.       DisabledColor   =   12632256
  168.       OffColor        =   8421504
  169.       OnColor         =   255
  170.       Value           =   -1  'True
  171.    End
  172.    Begin LedLib.LED LED1 
  173.       Height          =   495
  174.       Index           =   1
  175.       Left            =   480
  176.       TabIndex        =   2
  177.       Top             =   1800
  178.       Width           =   495
  179.       _Version        =   131072
  180.       _ExtentX        =   873
  181.       _ExtentY        =   873
  182.       _StockProps     =   64
  183.       BevelInner      =   3
  184.       BevelShapeInner =   1
  185.       BevelOuter      =   1
  186.       BevelShapeOuter =   0
  187.       BevelWidthOuter =   1
  188.       BevelWidthInner =   1
  189.       BorderWidth     =   4
  190.       DisabledColor   =   12632256
  191.       OffColor        =   8421504
  192.       OnColor         =   255
  193.       Value           =   -1  'True
  194.    End
  195.    Begin LedLib.LED LED1 
  196.       Height          =   495
  197.       Index           =   0
  198.       Left            =   0
  199.       TabIndex        =   1
  200.       Top             =   1800
  201.       Width           =   495
  202.       _Version        =   131072
  203.       _ExtentX        =   873
  204.       _ExtentY        =   873
  205.       _StockProps     =   64
  206.       BevelInner      =   3
  207.       BevelShapeInner =   1
  208.       BevelOuter      =   1
  209.       BevelShapeOuter =   0
  210.       BevelWidthOuter =   1
  211.       BevelWidthInner =   1
  212.       BorderWidth     =   4
  213.       DisabledColor   =   12632256
  214.       OffColor        =   8421504
  215.       OnColor         =   255
  216.       Value           =   -1  'True
  217.    End
  218.    Begin VB.Label Label1 
  219.       Appearance      =   0  'Flat
  220.       Caption         =   $"leds1.frx":0000
  221.       BeginProperty Font 
  222.          name            =   "MS Sans Serif"
  223.          charset         =   0
  224.          weight          =   400
  225.          size            =   9.75
  226.          underline       =   0   'False
  227.          italic          =   0   'False
  228.          strikethrough   =   0   'False
  229.       EndProperty
  230.       ForeColor       =   &H80000008&
  231.       Height          =   1335
  232.       Left            =   240
  233.       TabIndex        =   0
  234.       Top             =   240
  235.       Width           =   3375
  236.    End
  237. Attribute VB_Name = "FrmLEDSample1"
  238. Attribute VB_Creatable = False
  239. Attribute VB_Exposed = False
  240. Option Explicit
  241. Private Sub Form_Unload(Cancel As Integer)
  242.     End
  243. End Sub
  244. Private Sub Timer1_Timer()
  245.     Dim I As Integer
  246.     Dim J As Integer
  247.     Dim N As Integer
  248.     ' Randomly blink from 1 to 3 of the LEDs
  249.     N = Int(Rnd * 3) + 1
  250.     For J = 1 To N
  251.         I = Int(Rnd * 8)
  252.         LED1(I).Value = Not LED1(I).Value
  253.     Next J
  254. End Sub
  255.